home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / inputout / function / keyboard / interact.scr < prev    next >
Encoding:
Text File  |  1994-08-18  |  741 b   |  27 lines
  1. * Human interaction script
  2. * This script simply tests the enable/disable feature
  3. *    of the keyboard driver by asking the user to type
  4. *       something at a prompt with a (supposedly) disabled
  5. *    keyboard.  If the disable is successful, the keyboard
  6. *    re-enables after a timeout of 5 seconds.
  7. @thread interact.out
  8. @newalias kbd kbd.gra
  9.   kbd set \
  10.     $PROMPT="Try to type something" \
  11.     $PAUSE=5
  12.   kbd kbd_open
  13. @log "Disabling keyboard (interrupt)"
  14.   kbd kbd_disable_i
  15.   kbd pause
  16.   kbd kbd_query_disabled
  17.   kbd response
  18.   kbd kbd_query_disabled
  19.   kbd kbd_enable_i
  20. @log "Disabling keyboard (non-interrupt)"
  21.   kbd kbd_disable
  22.   kbd pause
  23.   kbd kbd_query_disabled
  24.   kbd response 
  25.   kbd kbd_query_disabled
  26.   kbd kbd_enable
  27.